How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/pc/egyptw.dir/01718_Script_Women

Text File | 1995-09-13 | 12KB | 447 lines

global gQuest, gBeenClicked

on EWomenRollovers1
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(7) or rollover(8) then
      repeat while rollover(7) or rollover(8)
        EgyptCursor
        puppetsprite 11, true
        set the locH of sprite 11 to 406
        set the locV of sprite 11 to 255
        updatestage
        if the mousedown then
          set GBeenClicked = 1
        else
          if gBeenClicked = 1 then
            repeat while gBeenClicked = 1
              ReepingMen
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 11 to 906
      puppetsprite 11, false
      updatestage
    else
      if rollover(6) then
        EgyptCursor
        repeat while rollover(6)
          set the locH of sprite 12 to 242
          set the locV of sprite 12 to 302
          updatestage
          if the mousedown then
            set GBeenClicked = 1
          else
            if gBeenClicked = 1 then
              repeat while gBeenClicked = 1
                AnimateloopFast 6, 1095, 3, "SE340301.AIF", 3
              end repeat
            end if
          end if
        end repeat
        set the locH of sprite 12 to 942
        updatestage
      else
        if rollover(9) then
          ArrowCursor
          repeat while rollover(9)
            set the locH of sprite 10 to 419
            set the locV of sprite 10 to 150
            updatestage
          end repeat
          set the locH of sprite 10 to 919
          updatestage
        else
          if rollover(13) then
            repeat while rollover(13)
              ArrowCursor
              set the locH of sprite 14 to 358
              set the locV of sprite 14 to 281
              updatestage
            end repeat
            set the locH of sprite 14 to 958
            updatestage
          else
            if rollover(15) then
              repeat while rollover(15)
                ArrowCursor
                set the locH of sprite 16 to 304
                set the locV of sprite 16 to 151
                updatestage
              end repeat
              set the locH of sprite 16 to 904
              updatestage
            else
              if rollover(17) then
                repeat while rollover(17)
                  ArrowCursor
                  set the locH of sprite 28 to 513
                  set the locV of sprite 28 to 297
                  updatestage
                end repeat
                set the locH of sprite 28 to 913
                updatestage
              else
                if rollover(40) then
                  HandCursor
                else
                  if rollover(41) then
                    HandCursor
                  else
                    if rollover(42) then
                      HandCursor
                    else
                      ArrowCursor
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on EWomenRollovers2
  set gBeenClicked = 0
  if (not(CheckClickedStatus(gQuest))) then
    if rollover(40) then
      repeat while rollover(40)
        EgyptCursor
        puppetsprite 16, true
        set the locH of sprite 16 to 295
        set the locV of sprite 16 to 358
        updatestage
        if the mousedown then
          set GBeenClicked = 1
        else
          if gBeenClicked = 1 then
            repeat while gBeenClicked = 1
              DancingGirls
            end repeat
          end if
        end if
      end repeat
      set the locH of sprite 16 to 995
      puppetsprite 16, false
      updatestage
    else
      if rollover(12) then
        ArrowCursor
        repeat while rollover(12)
          set the locH of sprite 13 to 325
          set the locV of sprite 13 to 289
          updatestage
        end repeat
        set the locH of sprite 13 to 925
        updatestage
      else
        if rollover(14) then
          repeat while rollover(14)
            EgyptCursor
            set the locH of sprite 15 to 367
            set the locV of sprite 15 to 337
            updatestage
            if the mousedown then
              Puppetsound "se340900.AIF"
            end if
          end repeat
          set the locH of sprite 15 to 967
          updatestage
        else
          if rollover(17) then
            repeat while rollover(17)
              EgyptCursor
              set the locH of sprite 18 to 358
              set the locV of sprite 18 to 196
              updatestage
              if the mousedown then
                Puppetsound "PE341100.AIF"
              end if
            end repeat
            set the locH of sprite 18 to 958
            updatestage
          else
            if rollover(19) then
              repeat while rollover(19)
                ArrowCursor
                set the locH of sprite 20 to 317
                set the locV of sprite 20 to 257
                updatestage
              end repeat
              set the locH of sprite 20 to 917
              updatestage
            else
              if rollover(21) then
                repeat while rollover(21)
                  EgyptCursor
                  set the locH of sprite 22 to 305
                  set the locV of sprite 22 to 291
                  updatestage
                  if the mousedown then
                    set GBeenClicked = 1
                  else
                    if gBeenClicked = 1 then
                      set the locH of sprite 22 to 905
                      updatestage
                      repeat while gBeenClicked = 1
                        MourningGirls
                      end repeat
                    end if
                  end if
                end repeat
                set the locH of sprite 22 to 905
                updatestage
              else
                if rollover(39) then
                  HandCursor
                else
                  if rollover(41) then
                    HandCursor
                  else
                    if rollover(42) then
                      HandCursor
                    else
                      ArrowCursor
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  RandomQuestion(gQuest)
end

on ReepingMen
  ArrowCursor
  set gAnimationcast1 = 1098
  set gAnimationcast2 = 1092
  set count = 0
  puppetsound "SE340401.AIF"
  repeat while count < 2 and (the mouseUp)
    set the castnum of sprite 7 = gAnimationcast1 + 1
    updatestage
    wait .2
    if (the mousedown) then
      exit repeat
    end if
    set the castnum of sprite 7 = gAnimationcast1 + 2
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 7 = gAnimationcast1 + 1
    updatestage
    if (the mousedown) then
      exit repeat
    end if
    wait .2
    set the castnum of sprite 7 = gAnimationcast1
    set the castnum of sprite 8 = gAnimationcast2 + 1
    updatestage
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .2
    set the castnum of sprite 7 = gAnimationcast1 + 1
    set the castnum of sprite 8 = gAnimationcast2 + 2
    updatestage
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .2
    set the castnum of sprite 7 = gAnimationcast1 + 2
    set the castnum of sprite 8 = gAnimationcast2 + 1
    updatestage
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .2
    set the castnum of sprite 7 = gAnimationcast1 + 1
    set the castnum of sprite 8 = gAnimationcast2 + 2
    updatestage
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .2
    set the castnum of sprite 7 = gAnimationcast1
    set the castnum of sprite 8 = gAnimationcast2
    updatestage
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .2
    set count = count + 1
  end repeat
  set the castnum of sprite 7 = gAnimationcast1
  set the castnum of sprite 8 = gAnimationcast2
  updatestage
  puppetsound 0
  set gBeenClicked = 0
end

on DanceGirl1ON
  set the locH of sprite 6 to 81
  set the locV of sprite 6 to 361
  updatestage
end

on DanceGirl1OFF
  set the locH of sprite 6 to -181
  updatestage
end

on DanceGirl2ON
  set the locH of sprite 7 to 164
  set the locV of sprite 7 to 364
  updatestage
end

on DanceGirl2OFF
  set the locH of sprite 7 to -181
  updatestage
end

on DancingGirls
  ArrowCursor
  puppetsprite 6, true
  puppetsprite 7, true
  set count = 0
  puppetsound "SE341001.AIF"
  repeat while count < 4 and (the mouseUp)
    DanceGirl1ON
    wait .3
    if (the mousedown) then
      exit repeat
    end if
    DanceGirl1Off
    DanceGirl2ON
    wait .3
    DanceGirl2Off
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .3
    DanceGirl1On
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .3
    DanceGirl2On
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .3
    DanceGirl1Off
    DanceGirl2Off
    if (the mousedown) then
      set animating = 0
      exit repeat
    end if
    wait .3
    set count = count + 1
  end repeat
  DanceGirl1OFF
  DanceGirl2OFF
  updatestage
  puppetsprite 6, false
  puppetsprite 7, false
  sound fadeout 1, 2*60
  set gBeenClicked = 0
end

on MourningGirls
  ArrowCursor
  puppetsprite 9, true
  puppetsprite 10, true
  puppetsprite 11, true
  set gAnimationcast1 = 1076
  set count = 0
  puppetsound "SE341301.AIF"
  repeat while count < 2 and (the mouseUp)
    MournGirl1ON
    MournGirl3ON
    wait .5
    if (the mousedown) then
      exit repeat
    end if
    MournGirl1Off
    MournGirl2ON
    set the castnum of sprite 11 = gAnimationcast1+1
    wait .5
    MournGirl2Off
    set the castnum of sprite 11 = gAnimationcast1
    if (the mousedown) then
      exit repeat
    end if
    wait .8
    MournGirl1ON
    MournGirl3Off
    wait .5
    if (the mousedown) then
      exit repeat
    end if
    MournGirl1Off
    MournGirl2ON
    MournGirl3ON
    wait .8
    MournGirl2Off
    MournGirl3Off
    if (the mousedown) then
      exit repeat
    end if
    wait .5
    set count = count + 1
  end repeat
  puppetsprite 9, false
  puppetsprite 10, false
  puppetsprite 11, false
  puppetsound 0
  set gBeenClicked = 0
end

on MournGirl1ON
  set the locH of sprite 9 to 412
  set the locV of sprite 9 to 258
  updatestage
end
on MournGirl2ON
  set the locH of sprite 10 to 577
  set the locV of sprite 10 to 339
  updatestage
end
on MournGirl3ON
  set the locH of sprite 11 to 590
  set the locV of sprite 11 to 253
  updatestage
end
on MournGirl1Off
  set the locH of sprite 9 to -412
  updatestage
end
on MournGirl2Off
  set the locH of sprite 10 to -577
  updatestage
end
on MournGirl3Off
  set the locH of sprite 11 to -590
  updatestage
end